home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / 3d_vb / form1.frm < prev    next >
Text File  |  1995-09-06  |  16KB  |  516 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "3-D4VB Sub Routines"
  6.    ClientHeight    =   6645
  7.    ClientLeft      =   645
  8.    ClientTop       =   375
  9.    ClientWidth     =   8550
  10.    Height          =   7050
  11.    Left            =   585
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   6645
  15.    ScaleWidth      =   8550
  16.    Top             =   30
  17.    Width           =   8670
  18.    Begin PictureBox Picture12 
  19.       BackColor       =   &H00C0C0C0&
  20.       BorderStyle     =   0  'None
  21.       Height          =   495
  22.       Left            =   4680
  23.       ScaleHeight     =   495
  24.       ScaleWidth      =   3495
  25.       TabIndex        =   14
  26.       Top             =   5640
  27.       Width           =   3495
  28.    End
  29.    Begin PictureBox Picture14 
  30.       BackColor       =   &H00C0C0C0&
  31.       BorderStyle     =   0  'None
  32.       Height          =   1095
  33.       Left            =   480
  34.       ScaleHeight     =   1095
  35.       ScaleWidth      =   3375
  36.       TabIndex        =   17
  37.       Top             =   5040
  38.       Width           =   3375
  39.    End
  40.    Begin PictureBox Picture8 
  41.       BackColor       =   &H00C0C0C0&
  42.       BorderStyle     =   0  'None
  43.       ForeColor       =   &H00000000&
  44.       Height          =   615
  45.       Left            =   4680
  46.       ScaleHeight     =   615
  47.       ScaleWidth      =   3495
  48.       TabIndex        =   8
  49.       Top             =   4800
  50.       Width           =   3495
  51.    End
  52.    Begin Timer Timer2 
  53.       Enabled         =   0   'False
  54.       Interval        =   2000
  55.       Left            =   4080
  56.       Top             =   4320
  57.    End
  58.    Begin PictureBox Picture7 
  59.       BackColor       =   &H00C0C0C0&
  60.       BorderStyle     =   0  'None
  61.       Height          =   615
  62.       Left            =   480
  63.       ScaleHeight     =   615
  64.       ScaleWidth      =   3375
  65.       TabIndex        =   7
  66.       Top             =   3600
  67.       Width           =   3375
  68.    End
  69.    Begin PictureBox Picture9 
  70.       BackColor       =   &H00C0C0C0&
  71.       BorderStyle     =   0  'None
  72.       Height          =   1575
  73.       Left            =   4680
  74.       ScaleHeight     =   1575
  75.       ScaleWidth      =   3495
  76.       TabIndex        =   9
  77.       Top             =   3000
  78.       Width           =   3495
  79.       Begin PictureBox MultiBar 
  80.          AutoSize        =   -1  'True
  81.          DrawMode        =   6  'Invert
  82.          Height          =   360
  83.          Left            =   1920
  84.          Picture         =   FORM1.FRX:0000
  85.          ScaleHeight     =   330
  86.          ScaleWidth      =   1065
  87.          TabIndex        =   15
  88.          TabStop         =   0   'False
  89.          Top             =   1080
  90.          Width           =   1095
  91.       End
  92.       Begin PictureBox SingleBar 
  93.          AutoSize        =   -1  'True
  94.          DrawMode        =   6  'Invert
  95.          Height          =   360
  96.          Left            =   1920
  97.          Picture         =   FORM1.FRX:0A6A
  98.          ScaleHeight     =   330
  99.          ScaleWidth      =   1065
  100.          TabIndex        =   10
  101.          TabStop         =   0   'False
  102.          Top             =   480
  103.          Width           =   1095
  104.       End
  105.    End
  106.    Begin Timer Timer1 
  107.       Enabled         =   0   'False
  108.       Interval        =   1000
  109.       Left            =   4680
  110.       Top             =   3000
  111.    End
  112.    Begin PictureBox Picture6 
  113.       BackColor       =   &H00C0C0C0&
  114.       BorderStyle     =   0  'None
  115.       Height          =   615
  116.       Left            =   480
  117.       ScaleHeight     =   615
  118.       ScaleWidth      =   3375
  119.       TabIndex        =   6
  120.       Top             =   2760
  121.       Width           =   3375
  122.    End
  123.    Begin PictureBox Picture13 
  124.       BackColor       =   &H00C0C0C0&
  125.       BorderStyle     =   0  'None
  126.       Height          =   735
  127.       Left            =   6480
  128.       ScaleHeight     =   735
  129.       ScaleWidth      =   1695
  130.       TabIndex        =   16
  131.       Top             =   2040
  132.       Width           =   1695
  133.    End
  134.    Begin PictureBox Picture11 
  135.       BackColor       =   &H00C0C0C0&
  136.       BorderStyle     =   0  'None
  137.       Height          =   735
  138.       Left            =   4680
  139.       ScaleHeight     =   735
  140.       ScaleWidth      =   1575
  141.       TabIndex        =   13
  142.       Top             =   2040
  143.       Width           =   1575
  144.    End
  145.    Begin PictureBox Picture5 
  146.       BackColor       =   &H00C0C0C0&
  147.       BorderStyle     =   0  'None
  148.       Height          =   615
  149.       Left            =   480
  150.       ScaleHeight     =   615
  151.       ScaleWidth      =   3375
  152.       TabIndex        =   5
  153.       Top             =   1920
  154.       Width           =   3375
  155.    End
  156.    Begin PictureBox Picture10 
  157.       BackColor       =   &H00C0C0C0&
  158.       BorderStyle     =   0  'None
  159.       Height          =   735
  160.       Left            =   6480
  161.       ScaleHeight     =   735
  162.       ScaleWidth      =   1695
  163.       TabIndex        =   12
  164.       Top             =   1080
  165.       Width           =   1695
  166.    End
  167.    Begin PictureBox Picture4 
  168.       BackColor       =   &H00C0C0C0&
  169.       BorderStyle     =   0  'None
  170.       Height          =   735
  171.       Left            =   4680
  172.       ScaleHeight     =   735
  173.       ScaleWidth      =   1575
  174.       TabIndex        =   4
  175.       Top             =   1080
  176.       Width           =   1575
  177.    End
  178.    Begin PictureBox Picture1 
  179.       BackColor       =   &H00C0C0C0&
  180.       BorderStyle     =   0  'None
  181.       Height          =   1215
  182.       Left            =   480
  183.       ScaleHeight     =   1215
  184.       ScaleWidth      =   3375
  185.       TabIndex        =   0
  186.       Top             =   480
  187.       Width           =   3375
  188.       Begin TextBox Text2 
  189.          BackColor       =   &H00FFFF00&
  190.          BorderStyle     =   0  'None
  191.          ForeColor       =   &H00FF0000&
  192.          Height          =   255
  193.          Left            =   120
  194.          TabIndex        =   18
  195.          Text            =   "Text2"
  196.          Top             =   840
  197.          Width           =   1455
  198.       End
  199.       Begin TextBox Text1 
  200.          Height          =   375
  201.          Left            =   1920
  202.          TabIndex        =   1
  203.          Text            =   "Text1"
  204.          Top             =   240
  205.          Width           =   1335
  206.       End
  207.       Begin Label Label1 
  208.          BorderStyle     =   1  'Fixed Single
  209.          Caption         =   "Label1"
  210.          Height          =   375
  211.          Left            =   120
  212.          TabIndex        =   11
  213.          Top             =   240
  214.          Width           =   1455
  215.       End
  216.    End
  217.    Begin PictureBox Picture3 
  218.       BackColor       =   &H00C0C0C0&
  219.       BorderStyle     =   0  'None
  220.       Height          =   615
  221.       Left            =   6480
  222.       ScaleHeight     =   615
  223.       ScaleWidth      =   1695
  224.       TabIndex        =   3
  225.       Top             =   240
  226.       Width           =   1695
  227.    End
  228.    Begin PictureBox Picture2 
  229.       BackColor       =   &H00C0C0C0&
  230.       BorderStyle     =   0  'None
  231.       Height          =   615
  232.       Left            =   4680
  233.       ScaleHeight     =   615
  234.       ScaleWidth      =   1575
  235.       TabIndex        =   2
  236.       Top             =   240
  237.       Width           =   1575
  238.    End
  239. End
  240. Dim Selected As Integer
  241.  
  242. Sub BuildScreen ()
  243.   ' FormFrame
  244.   FormFrame Form1
  245.  
  246.   ' BorderBox Places Shadowed Border around Text and Label Controls
  247.   ' suggested from code in Nov./Dec.1991 BASICPro Magazine.
  248.   ' Since labels and text boxes have no print method use this routine
  249.   Picture1.AutoRedraw = True
  250.   RaisedBorderBox Text1, Picture1
  251.   BorderBox Label1, Picture1, 2
  252.   BorderBox Text2, Picture1, 1
  253.   LabelBox Label1, Picture1, "BorderBox", 2, 0, GRAY, ETCHED
  254.   Picture1.FontBold = False
  255.   LabelBox Text1, Picture1, "RaisedBorderBox", 2, 0, BLACK, NORMAL
  256.   Picture1.FontBold = True
  257.   LabelBox Text1, Picture1, "LabelBox", 2, 2, BLUE, ETCHED
  258.   Picture1.AutoRedraw = False
  259.   
  260.   ' EtchedFrames
  261.   ' Picture Boxes that appear like frame controls
  262.   Picture5.AutoRedraw = True
  263.   EtchedFrame Picture5, "L